home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / magic / d / mtmenuba.d < prev    next >
Text File  |  1997-10-26  |  3KB  |  70 lines
  1. (*----------------------------------------------------------------------*
  2.  *                                                                      *
  3.  *  MAGICTOOLS   Modula's  All purpose  GEM  Interface  Cadre  Toolbox  *
  4.  *               ÿ         ÿ            ÿ    ÿ          ÿ               *
  5.  *----------------------------------------------------------------------*
  6.  * Version 3.30  02.02.1992     (C)90/91/92 by Peter Hellinger Software *
  7.  *----------------------------------------------------------------------*
  8.  *            Dieses Modul ist urheberrechtlich geschtzt.              *
  9.  *                                                                      *
  10.  * Die Ver”ffentlichung des Quelltextes oder Teilen daraus, sowie die   *
  11.  * Verbreitung des bersetzten, nicht gelinkten Codes in schriftlicher, *
  12.  * oder maschinenlesbarer Form, insbesondere in Zeitschriften, Mail-    *
  13.  * boxen oder anderen Medien bedarf der ausdrcklichen schriftlichen    *
  14.  * Einverst„ndnisserkl„rung des Autors.                                 *
  15.  *                                                                      *
  16.  * Die Verbreitung des Moduls als Teil eines gelinkten Programms ist    *
  17.  * fr Lizenznehmer ausdrcklich erlaubt!  Der Autor beh„lt sich das    *
  18.  * Recht vor, diese Erlaubnis jederzeit und ohne Angaben von Grnden zu *
  19.  * widerrufen.                                                          *
  20.  *----------------------------------------------------------------------*)
  21.  
  22. (*----------------------------------------------------------------------*
  23.  * mtMenubase   Basis fr die Module mtMenus und mtPopups.              *
  24.  *                                                                      *
  25.  * WICHTIG: Bei der Verwendung dieses Moduls sehr vorsichtig sein, da   * 
  26.  *          es auf Besonderheiten von mtMenus und mtPopups eingeht!!!   *
  27.  *----------------------------------------------------------------------*)
  28.  
  29. DEFINITION MODULE mtMenubase;
  30.  
  31. FROM MagicSys   IMPORT  Nil, Null, Bit0, Bit1, Bit2, Bit3, Bit4, Bit5, Bit6,
  32.                         Bit7, Bit8, Bit9, Bit10, Bit11, Bit12, Bit13, Bit14,
  33.                         Bit15, LOC, Byte, ByteSet, sWORD, sINTEGER, sCARDINAL,
  34.                         sBITSET, lINTEGER, lCARDINAL, lWORD, lBITSET;
  35.  
  36.  
  37.  
  38.  
  39.  
  40. IMPORT  MagicAES;
  41. FROM mtUtils IMPORT tRect, tObjcTree;
  42.  
  43. PROCEDURE SameLength (menu: tObjcTree; num, max: sINTEGER);
  44. (* Bringt alle Meneintrage auf gleiche L„nge *)
  45.  
  46. PROCEDURE DoEvent (VAR x, y: sINTEGER;
  47.                    VAR button: sBITSET;
  48.                    VAR scan: sINTEGER): sBITSET;
  49. (* Event-Routine fr mtMenus und mtPopups *)
  50.  
  51. PROCEDURE ScreenDim (VAR mw, mh: sINTEGER);
  52. (* Aktualisiert die Bildschirmgr”že *)
  53.  
  54. PROCEDURE DrawBar (t: tObjcTree; object: sINTEGER);
  55. (* Zeichnet einen Meneintrag selektiert bzw. unselektiert *)
  56.  
  57. PROCEDURE MenuKeyboard (t: tObjcTree; scan, minobj, oldob: sINTEGER;
  58.                         VAR ob: sINTEGER): BOOLEAN;
  59. (* Berechnet neues Objekt anhand der Tastatureingaben *)
  60.  
  61. PROCEDURE PlaceOnScreen (t: tObjcTree);
  62. (* Plaziert einen Menbaum auf dem Schirm. Dabei werden R„nder etc. beachtet *)
  63.  
  64. PROCEDURE InitMtMenubase;
  65. (* Initialisiert mtMenubase. Wird normalerweise im Modulk”rper
  66.  * aufgerufen, und braucht nicht weiter beachtet zu werden.
  67.  *)
  68.  
  69. END mtMenubase.
  70.